home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / usrmrg.zip / RBBS-PC.MRG next >
Text File  |  1988-10-26  |  3KB  |  70 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce D:\LITE\RBBS-PC.BAS
  3. * RBBS-PC.BAS:  Date 10-12-1988  Size 138779 bytes
  4. * ------------[ Created 10-26-1988 19:26:06 ]------------
  5. * REPLACING old line(s) by new
  6. * ------[ first line different ]------
  7. 11110 A$ = "D)elete,  F)ind,  M)enu,  N)ew pwd,  P)rint,  R)eset graphics,"+CRLF$ 'USRBYTE MOD
  8.       A$ = A$ + "Q)uit,  S)ecurity, U)ploads/downloads,  #)user , T)ime used" 'USRBYTE MOD
  9.         IF RESTRICT.BY.DATE THEN _
  10.            A$ = A$ + _
  11.                 ",$)RegDate"
  12.         GOSUB 12999
  13.         IF NOT SCAN.USERS AND Q = 0 THEN _
  14.            GOTO 11310
  15. * REPLACING old line(s) by new
  16. 11115   Z$ = LEFT$(B$(1),1)
  17.         CALL ALLCAPS (Z$)
  18. * ------[ first line different ]------
  19.         X = INSTR("DNPQFSMRU$T#",Z$)
  20.         IF Z$ = "" AND SCAN.USERS THEN _
  21.            GOTO 12965
  22. ON X GOTO 11130,11160,11220,11320,11340,11390,11330,11400,11410,11450,11420,11127
  23. * REPLACING old line(s) by new
  24. 11400 LSET USER.OPTIONS$ = LEFT$(USER.OPTIONS$,5) + _
  25.                            "0" + _
  26.                            MID$(USER.OPTIONS$,7)
  27.       GOTO 11290
  28. * ------[ first line different ]------
  29. '*************************************************************
  30. '* U - COMMAND FROM 5 CHANGE UPLOADS AND DOWNLOADS           *
  31. '*************************************************************
  32. '
  33. * INSERTING new line(s)
  34. 11410 A$ = "Enter NEW value for uploads, press (ENTER) for no change"
  35.       GOSUB 12995
  36.       IF Q = 0 THEN _
  37.       GOTO 11412
  38.       LSET USER.UPLOADS$ = MKI$(VAL(B$(1)))
  39. 11412 A$ = "Enter NEW # of Upload bytes, press (ENTER) for no change"
  40.       GOSUB 12995
  41.       IF Q = 0 THEN _
  42.       GOTO 11414
  43.       LSET UL.BYTES$ = MKS$(VAL(B$(1)))
  44. 11414 A$ = "Enter NEW value for downloads, press (ENTER) for no change"
  45.       GOSUB 12995
  46.       IF Q = 0 THEN _
  47.       GOTO 11415
  48.       LSET USER.DOWNLOADS$ = MKI$(VAL(B$(1)))
  49. 11415 A$ = "Enter NEW # of Download bytes, press (ENTER) for no change"
  50.       GOSUB 12995
  51.       IF Q = 0 THEN _
  52.       GOTO 11290
  53.       LSET DL.BYTES$ = MKS$(VAL(B$(1)))
  54.       GOTO 11290
  55. '
  56. '*****************************************************************
  57. '* T - COMMAND FROM 5---CHANGE TIME LEFT                         *
  58. '*****************************************************************
  59. 11420  A$ = CRLF$ + "Enter new value for Time used, press (ENTER) for no change"
  60.       GOSUB 12995
  61.       IF Q = 0 THEN _
  62.       GOTO 11290
  63.       LSET ELAPSED.TIME$ = MKI$(VAL(B$(1)))
  64.       GOTO 11290
  65. '
  66. ' *****************************************************************************
  67. '
  68. ' *  $ - COMMAND FROM 5 - USER MAINTENANCE (CHANGE REGISTRATION DATE)         *
  69. '
  70.